home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / MFlame4AdproV2.07.adf / Install-MultiFrame-ADPro < prev    next >
Text File  |  1978-09-05  |  4KB  |  201 lines
  1. ; Multiframe-ADPro 2.07 Install Script
  2. ;
  3. ; Version 1.0 of Multiframe-ADPro Script
  4. ; by Mark Thomas
  5.  
  6. ; Do Multiframe-ADPro and MultiData
  7. (if
  8.     (= @user-level 2)
  9.     (set @default-dest
  10.         (askdir
  11.             (prompt "Where would you like the Multiframe-ADPro program installed?\nA drawer will be created for it.")
  12.             (help
  13.                 (cat "A drawer will be created and Multiframe-ADPro along with the MultiData drawer will be installed in that drawer.\n\n" @askdir-help)
  14.             )
  15.             (default @default-dest)
  16.         )
  17.     )
  18. )
  19.  
  20. (set @default-dest
  21.     (tackon @default-dest "Multiframe")
  22. )
  23.  
  24. (makedir @default-dest
  25.     (infos)
  26. )
  27.  
  28. (askdisk
  29.     (prompt "Please insert the Multiframe disk in any drive.")
  30.     (dest "Multiframe")
  31.     (help @askdisk-help)
  32. )
  33.  
  34. (copyfiles
  35.     (source "Multiframe:")
  36.     (dest @default-dest)
  37.     (choices "Multiframe-ADPro" "MultiData")
  38.     (infos)
  39. )
  40.  
  41. ; Do Background
  42. (set background-drawer @default-dest)
  43.  
  44. (if
  45.     (= @user-level 2)
  46.     (set background-drawer
  47.         (askdir
  48.             (prompt "Where would you like the Background drawer installed?")
  49.             (help
  50.                 (cat "The Background drawer will be installed where you specify.\n\n" @askdir-help)
  51.             )
  52.             (default background-drawer)
  53.         )
  54.     )
  55. )
  56.  
  57. (askdisk
  58.     (prompt "Please insert the Multiframe disk in any drive.")
  59.     (dest "Multiframe")
  60.     (help @askdisk-help)
  61. )
  62.  
  63. (copyfiles
  64.     (source "Multiframe:")
  65.     (dest background-drawer)
  66.     (choices "Background")
  67.     (infos)
  68. )
  69.  
  70. (set drawer-default background-drawer)
  71.  
  72. (set background-drawer
  73.     (tackon background-drawer "Background")
  74. )
  75.  
  76. ; Do Foreground
  77. (set foreground-drawer drawer-default)
  78.  
  79. (if
  80.     (= @user-level 2)
  81.     (set foreground-drawer
  82.         (askdir
  83.             (prompt "Where would you like the Foreground drawer installed?")
  84.             (help
  85.                 (cat "The Foreground drawer will be installed where you specify.\n\n" @askdir-help)
  86.             )
  87.             (default foreground-drawer)
  88.         )
  89.     )
  90. )
  91.  
  92. (askdisk
  93.     (prompt "Please insert the Multiframe disk in any drive.")
  94.     (dest "Multiframe")
  95.     (help @askdisk-help)
  96. )
  97.  
  98. (copyfiles
  99.     (source "Multiframe:")
  100.     (dest foreground-drawer)
  101.     (choices "Foreground")
  102.     (infos)
  103. )
  104.  
  105. (set foreground-drawer
  106.     (tackon foreground-drawer "Foreground")
  107. )
  108.  
  109. ; Do Alpha
  110. (set alpha-drawer drawer-default)
  111.  
  112. (if
  113.     (= @user-level 2)
  114.     (set alpha-drawer
  115.         (askdir
  116.             (prompt "Where would you like the Alpha drawer installed?")
  117.             (help
  118.                 (cat "The Alpha drawer will be installed where you specify.\n\n" @askdir-help)
  119.             )
  120.             (default alpha-drawer)
  121.         )
  122.     )
  123. )
  124.  
  125. (askdisk
  126.     (prompt "Please insert the Multiframe disk in any drive.")
  127.     (dest "Multiframe")
  128.     (help @askdisk-help)
  129. )
  130.  
  131. (copyfiles
  132.     (source "Multiframe:")
  133.     (dest alpha-drawer)
  134.     (choices "Alpha")
  135.     (infos)
  136. )
  137.  
  138. (set alpha-drawer
  139.     (tackon alpha-drawer "Alpha")
  140. )
  141.  
  142. ; Do Destination
  143. (set destination-drawer drawer-default)
  144.  
  145. (if
  146.     (= @user-level 2)
  147.     (set destination-drawer
  148.         (askdir
  149.             (prompt "Where would you like the Destination drawer installed?")
  150.             (help
  151.                 (cat "The Destination drawer will be installed where you specify.\n\n" @askdir-help)
  152.             )
  153.             (default destination-drawer)
  154.         )
  155.     )
  156. )
  157.  
  158. (askdisk
  159.     (prompt "Please insert the Multiframe disk in any drive.")
  160.     (dest "Multiframe")
  161.     (help @askdisk-help)
  162. )
  163.  
  164. (copyfiles
  165.     (source "Multiframe:")
  166.     (dest destination-drawer)
  167.     (choices "Destination")
  168.     (infos)
  169. )
  170.  
  171. (set destination-drawer
  172.     (tackon destination-drawer "Destination")
  173. )
  174.  
  175.  
  176. (set multidata-drawer
  177.     (tackon @default-dest "multidata")
  178. )
  179.  
  180. ; Do assignments
  181. (makeassign "MULTIFRAME" @default-dest)
  182. (makeassign "MULTIDATA" multidata-drawer)
  183. (makeassign "BACKGROUND" background-drawer)
  184. (makeassign "FOREGROUND" foreground-drawer)
  185. (makeassign "ALPHA" alpha-drawer)
  186. (makeassign "DESTINATION" destination-drawer)
  187.  
  188. ; Patch User-Startup
  189. (startup "MULTIFRAME"
  190.     (prompt "Do you want the Multiframe assignments to be added to your User-Startup file?")
  191.     (help @startup-help)
  192.     (command
  193.         ('Assign MULTIFRAME: "%s"\n' @default-dest)
  194.         ('Assign MULTIDATA: "%s"\n' multidata-drawer)
  195.         ('Assign BACKGROUND: "%s"\n' background-drawer)
  196.         ('Assign FOREGROUND: "%s"\n' foreground-drawer)
  197.         ('Assign ALPHA: "%s"\n' alpha-drawer)
  198.         ('Assign DESTINATION: "%s"\n' destination-drawer)
  199.     )
  200. )
  201.